home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / ERAS / CREDITS.Cst / 00208_Field_text adjust-o-matic.txt < prev    next >
Text File  |  1997-07-16  |  1KB  |  34 lines
  1. -- remove after development
  2.  
  3. on mouseDown
  4.   if the mouseH < the right of sprite the clickon - 16 then
  5.     repeat while the stillDown
  6.       set times = times + 1
  7.       case times of
  8.         1: set theDelta = 1
  9.         10: set theDelta = 2
  10.         20: set theDelta = 4
  11.         30: set theDelta = 8
  12.       end case
  13.       if the shiftdown then set theDelta = - 1
  14.       else set theDelta = theDelta
  15.       set the scrolltop of the member of sprite the clickon = the scrolltop of the member of sprite the clickon + theDelta
  16.     end repeat
  17.   else pass
  18. end
  19.  
  20. on mouseUp
  21.   global gTextIndex
  22.   if voidP(gTextIndex) then set gTextIndex = [:]
  23.   do "setaprop gTextIndex, #" & the framelabel & "," & the scrolltop of the member of sprite the clickon
  24.   if the optionDown then 
  25.     -- update the script
  26.     put the scripttext of member "Internal Tables" into it
  27.     put line 1 to 2 of it into txtHead
  28.     delete line 1 to 3 of it
  29.     put return & "set gTextIndex = " & string(gTextIndex) & return after txtHead
  30.     put txthead & it into newScript
  31.     set the scripttext of member "internal tables" = newscript
  32.   end if
  33. end
  34.